persistent database connection - Apache::DBI with mod_perl

--0-1480779522-1216187899=:73831
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable

Hi,
 
I have problems to setup persistent database connection for my perl project=
using mod_perl.
 
It tooks me two days which i still cann't figure out how mod_perl works wit=
h Apache::DBI.
 
My Server Settings:
ActiveState Perl 5.8.8 build 822
Apache HTTP Server 2.2.9
Apache DBI 1.06
mod_perl 2.03
DBD-Oracle 1.17
 
--------------Adding to httpd.conf--------------
 
LoadFile "C:/Perl/bin/perl58.dll"
LoadModule perl_module modules/mod_perl.so
PerlSetEnv DBI_TRACE "3=3DC:/Perl/dbitrace.log"
PerlModule Apache::DBI
PerlRequire  "C:/Perl/lib/startup.pl"
 
--------------End-------------------------------------
 
--------------startup.pl--------------
#!c:/perl/bin/perl.exe=20

$ENV{MOD_PERL} or die "GATEWAY_INTERFACE not Perl!";
#use Apache::Registry;
use Apache::DBI;
use strict;

$Apache::DBI::DEBUG =3D 2;

Apache::DBI->connect_on_init("dbi:Oracle:host=3Dxxx;sid=3Dxx x",
             =C2=
 Â Â Â Â Â Â Â Â Â Â  Â Â=A0=
    "xxx", "xxx",
             =C2=
 Â Â Â Â Â Â Â Â Â Â  Â Â=A0=
    {PrintError =3D> 1, RaiseError =3D> 0, AutoCommit =3D> 1=
,}
             =C2=
 Â Â Â Â Â Â Â Â Â Â  Â Â=A0=
    );
 
my $timeout =3D 0;
Apache::DBI->setPingTimeOut("dbi:Oracle:host=3Dxxx;sid=3Dxxx ", $timeout);
 
1;
--------------End-------------------------------------
 
--------------Apache Startup Log-------------------------------------
[Wed Jul 16 14:43:54 2008] [notice] Apache/2.2.9 (Win32) mod_perl/2.0.3 Per=
l/v5.8.8 configured -- resuming normal operations
[Wed Jul 16 14:43:54 2008] [notice] Server built: Jun 13 2008 04:04:59
[Wed Jul 16 14:43:54 2008] [notice] Parent: Created child process 996
[Wed Jul 16 14:43:54 2008] [notice] Child 996: Child process is running
996 Apache::DBI        = C2 Â=A0=
   PerlChildInitHandler
996 Apache::DBI        = C2 Â=A0=
   need ping: yes
996 Apache::DBI        = C2 Â=A0=
   new connect to 'host=3Dxxx;sid=3Dxxx=1Cxxx=1Cxxx=1CAutoCommit=
=3D1=1CPrintError=3D1=1CRaiseError=3D0=1CUsername=3Dxxx'
[Wed Jul 16 14:43:55 2008] [notice] Child 996: Acquired the start mutex.
[Wed Jul 16 14:43:55 2008] [notice] Child 996: Starting 64 worker threads.
[Wed Jul 16 14:43:55 2008] [notice] Child 996: Starting thread to listen on=
port 80.
--------------End-------------------------------------
I can see it sucessful open the oracle DB connection.
 
However, when I run an CGI script on the IE 6, it cannot find $ENV{MOD_PERL=
} and start new DBI connection.
 
--------foo.cgi--------------------
#!c:/perl/bin/perl.exe -d
use DBI;
use CGI qw(:standard);

my $dbh =3D DBI->connect("dbi:Oracle:host=3Dxxx;sid=3Dxxx",
             =C2=
 Â Â Â Â Â Â Â Â Â Â  Â Â=A0=
    "xxx", "xxx",
             =C2=
 Â Â Â Â Â Â Â Â Â Â  Â Â=A0=
    {PrintError =3D> 1, RaiseError =3D> 0, AutoCommit =3D> 1=
,}
             =C2=
 Â Â Â Â Â Â Â Â Â Â  Â Â=A0=
    );
--------END--------------------
 
Do I need to do any setting in Apache for $ENV{MOD_PERL}?=20
Did I do any thing wrong in above code?
 
Thanks and Regards
 
Chris Z =0A Start at the new Yahoo!7 for a better online experien=
ce. www.yahoo7.com.au
--0-1480779522-1216187899=:73831
Content-Type: text/html; charset=utf-8
Content-Transfer-Encoding: quoted-printable

Re: persistent database connection - Apache::DBI with mod_perl

Quoting Chris Zhuang :

> Hi,
> However, when I run an CGI script on the IE 6, it cannot find
> $ENV{MOD_PERL} and start new DBI connection.
> --------foo.cgi--------------------
> #!c:/perl/bin/perl.exe -d
> use DBI;
> use CGI qw(:standard);
>
> my $dbh = DBI->connect("dbi:Oracle:host=xxx;sid=xxx",
> "xxx", "xxx",
> {PrintError => 1, RaiseError => 0,
> AutoCommit => 1,}
> );
> --------END--------------------
>

It looks like your CGI's are are running under CGI, not
ModPerl::PerlRun, or ModPerl::Registry.

see:
http://perl.apache.org/docs/2.0/user/intro/start_fast.html#R egistry_Scripts

Re: persistent database connection - Apache::DBI with mod_perl

--0-661032591-1216263847=:33423
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable

Hi adam,
 
I got that mod_perl works on my server.
 
But how to setup Komodo 3.1 to debug mod_perl?
 
It seems like Komodo can only debug mod_cgi.
 
My httpd.conf setting:
 

  use lib qw("C:/Program Files/ActiveState Komodo 3.1/dbgp/perllib");
  $ENV{PERLDB_OPTS} =3D "RemotePort=3D127.0.0.1:1417 LogFile=3Dstderr"=
;
  use Apache::DB ();
  Apache::DB->init;

 
Alias /perl/ "C:/Apache2.2/htdocs/perl/"

  SetHandler perl-script
  PerlHandler ModPerl::Registry
  Options +ExecCGI
  PerlOptions +ParseHeaders
  PerlFixupHandler Apache::DB
  Order allow,deny
  Allow from all=20


Below is Apache error logs:
 
Thu Jul 17 12:50:21 2008] [error] Unable to get Terminal Size. The Win32 Ge=
tConsoleScreenBufferInfo call didn't work. The COLUMNS and LINES environmen=
t variables didn't work. The resize program didn't work. at C:/Perl/lib/Ter=
m/ReadKey.pm line 362.\nCompilation failed in require at C:/Perl/lib/Term/R=
eadLine/Perl.pm line 64.\n at C:/Perl/lib/Term/ReadLine/Perl.pm line 64\n\t=
eval {...} called at C:/Perl/lib/Term/ReadLine/Perl.pm line 64\n\tTerm::Rea=
dLine::Perl::new('Term::ReadLine', 'perldb', 'IO::Socket::INET=3DGLOB(0xa4f=
9cbc)', 'IO::Socket::INET=3DGLOB(0xa4f9cbc)') called at C:/Perl/site/lib/Ap=
ache/perl5db.pl line 2226\n\tDB::setterm called at C:/Perl/site/lib/Apache/=
perl5db.pl line 773\n\tDB::DB called at C:/Apache2.2/htdocs/perl/foo2.cgi l=
ine 2\n\tModPerl::ROOT::ModPerl::Registry::C_3a_Apache2_2e2_htdo cs_perl_foo=
2_2ecgi::BEGIN() called at C:/Perl/lib/Term/ReadLine/readline.pm line 2\n\t=
eval {...} called at C:/Perl/lib/Term/ReadLine/readline.pm line
2\n\teval 'package ModPerl::ROOT::ModPerl::Registry::C_3a_Apache2_2e2_htdo=
cs_perl_foo2_2ecgi;sub handler {local $0 =3D \\'C:/Apache2.2/htdocs/perl/fo=
o2.cgi\\';\n#line 1 C:/Apache2.2/htdocs/perl/foo2.cgi\n#!c:/perl/bin/perl.e=
xe\r\n  use strict;\r\n  print "Content-type: text/html\\\\n\\\\n=
";\r\n  print "

Environment variables

";\r\n=C2=
=A0 foreach (sort keys %ENV) {\r\n    my $val =3D $ENV{$_};\=
r\n    $val =3D~ s|\\\\n|\\\\\\\\n|g;\r\n    =
$val =3D~ s|"|\\\\\\\\"|g;\r\n    print "
• $_ =3D \\\\"${v=
  al}\\\\"
\\\\n";\r\n  }\r\n  #sleep(10);\r\n  print " L>";\n}\n;' called at C:/Perl/site/lib/ModPerl/RegistryCooker=
..pm line 677\n\tModPerl::RegistryCooker::compile('ModPerl::Registry=3 DHASH(=
0x280c1ac)', 'SCALAR(0x1c615f0)') called at C:/Perl/site/lib/ModPerl/Regist=
ryCooker.pm line 406\n\tModPerl::RegistryCooker::convert_script_to_compiled=
_handler('ModPerl::Registry=3DHASH(0x280c1ac)') called at
C:/Perl/site/lib/ModPerl/RegistryCooker.pm line 163\n\tModPerl::RegistryCo=
oker::default_handler('ModPerl::Registry=3DHASH(0x280c1ac)') called at C:/P=
erl/site/lib/ModPerl/Registry.pm line 31\n\tModPerl::Registry::handler('Mod=
Perl::Registry', 'Apache2::RequestRec=3DSCALAR(0x280c284)') called at C:/Pe=
rl/lib/Term/ReadLine/readline.pm line 2\n\teval {...} called at C:/Perl/lib=
/Term/ReadLine/readline.pm line 2\n at C:/Perl/lib/Term/ReadLine/Perl.pm li=
ne 64\n\tTerm::ReadLine::Perl::new('Term::ReadLine', 'perldb', 'IO::Socket:=
:INET=3DGLOB(0xa4f9cbc)', 'IO::Socket::INET=3DGLOB(0xa4f9cbc)') called at C=
:/Perl/site/lib/Apache/perl5db.pl line 2226\n\tDB::setterm called at C:/Per=
l/site/lib/Apache/perl5db.pl line 773\n\tDB::DB called at C:/Apache2.2/htdo=
cs/perl/foo2.cgi line 2\n\tModPerl::ROOT::ModPerl::Registry::C_3a_Apache2_2=
e2_htdocs_perl_foo2_2ecgi::BEGIN() called at C:/Apache2.2/htdocs/perl/foo2.=
cgi line 2\n\teval {...} called at C:/Apache2.2/htdocs/perl/foo2.cgi line
2\n\teval 'package ModPerl::ROOT::ModPerl::Registry::C_3a_Apache2_2e2_htdo=
cs_perl_foo2_2ecgi;sub handler {local $0 =3D \\'C:/Apache2.2/htdocs/perl/fo=
o2.cgi\\';\n#line 1 C:/Apache2.2/htdocs/perl/foo2.cgi\n#!c:/perl/bin/perl.e=
xe\r\n  use strict;\r\n  print "Content-type: text/html\\\\n\\\\n=
";\r\n  print "

Environment variables

";\r\n=C2=
=A0 foreach (sort keys %ENV) {\r\n    my $val =3D $ENV{$_};\=
r\n    $val =3D~ s|\\\\n|\\\\\\\\n|g;\r\n    =
$val =3D~ s|"|\\\\\\\\"|g;\r\n    print "
• $_ =3D \\\\"${v=
  al}\\\\"
\\\\n";\r\n  }\r\n  #sleep(10);\r\n  print " L>";\n}\n;' called at C:/Perl/site/lib/ModPerl/RegistryCooker=
..pm line 677\n\tModPerl::RegistryCooker::compile('ModPerl::Registry=3 DHASH(=
0x280c1ac)', 'SCALAR(0x1c615f0)') called at C:/Perl/site/lib/ModPerl/Regist=
ryCooker.pm line 406\n\tModPerl::RegistryCooker::convert_script_to_compiled=
_handler('ModPerl::Registry=3DHASH(0x280c1ac)') called at
C:/Perl/site/lib/ModPerl/RegistryCooker.pm line 163\n\tModPerl::RegistryCo=
oker::default_handler('ModPerl::Registry=3DHASH(0x280c1ac)') called at C:/P=
erl/site/lib/ModPerl/Registry.pm line 31\n\tModPerl::Registry::handler('Mod=
Perl::Registry', 'Apache2::RequestRec=3DSCALAR(0x280c284)') called at C:/Ap=
ache2.2/htdocs/perl/foo2.cgi line 2\n\teval {...} called at C:/Apache2.2/ht=
docs/perl/foo2.cgi line 2\nBEGIN failed--compilation aborted at C:/Apache2.=
2/htdocs/perl/foo2.cgi line 2.\n at C:/Apache2.2/htdocs/perl/foo2.cgi line =
2\n\teval 'package ModPerl::ROOT::ModPerl::Registry::C_3a_Apache2_2e2_htdoc=
s_perl_foo2_2ecgi;sub handler {local $0 =3D \\'C:/Apache2.2/htdocs/perl/foo=
2.cgi\\';\n#line 1 C:/Apache2.2/htdocs/perl/foo2.cgi\n#!c:/perl/bin/perl.ex=
e\r\n  use strict;\r\n  print "Content-type: text/html\\\\n\\\\n"=
;\r\n  print "

Environment variables

";\r\n=C2=
=A0 foreach (sort keys %ENV) {\r\n    my $val =3D $ENV{$_};\=
r\n    $val =3D~
s|\\\\n|\\\\\\\\n|g;\r\n    $val =3D~ s|"|\\\\\\\\"|g;\r\n=
    print "
• $_ =3D \\\\"${val}\\\\"
\\\\n";\r\n =
}\r\n  #sleep(10);\r\n  print "
";\n}\n;' call=
ed at C:/Perl/site/lib/ModPerl/RegistryCooker.pm line 677\n\tModPerl::Regis=
tryCooker::compile('ModPerl::Registry=3DHASH(0x280c1ac)', 'SCALAR(0x1c615f0=
)') called at C:/Perl/site/lib/ModPerl/RegistryCooker.pm line 406\n\tModPer=
l::RegistryCooker::convert_script_to_compiled_handler('ModPe rl::Registry=3D=
HASH(0x280c1ac)') called at C:/Perl/site/lib/ModPerl/RegistryCooker.pm line=
163\n\tModPerl::RegistryCooker::default_handler('ModPerl::Re gistry=3DHASH(=
0x280c1ac)') called at C:/Perl/site/lib/ModPerl/Registry.pm line 31\n\tModP=
erl::Registry::handler('ModPerl::Registry', 'Apache2::RequestRec=3DSCALAR(0=
x280c284)') called at C:/Apache2.2/htdocs/perl/foo2.cgi line 2\n\teval {...=
}=20
 
I did a lot online search as well, but still cann't find a solution.
 
http://osdir.com/ml/ide.komodo.general/2005-07/msg00008.html
 
Regards
 
Chris Z

--- On Thu, 17/7/08, adam.prime@utoronto.ca wrote:

From: adam.prime@utoronto.ca
Subject: Re: persistent database connection - Apache::DBI with mod_perl
To: modperl@perl.apache.org
Received: Thursday, 17 July, 2008, 12:33 AM

Quoting Chris Zhuang :

> Hi,
> However, when I run an CGI script on the IE 6, it cannot find =20
> $ENV{MOD_PERL} and start new DBI connection.
> --------foo.cgi--------------------
> #!c:/perl/bin/perl.exe -d
> use DBI;
> use CGI qw(:standard);
>
> my $dbh =3D DBI->connect("dbi:Oracle:host=3Dxxx;sid=3Dxxx",
> "xxx", "xxx",
> {PrintError =3D> 1, RaiseError =3D> 0, =20
> AutoCommit =3D> 1,}
> );
> --------END--------------------
>

It looks like your CGI's are are running under CGI, not =20
ModPerl::PerlRun, or ModPerl::Registry.

see:
http://perl.apache.org/docs/2.0/user/intro/start_fast.html#R egistry_Scripts=
=0A Start at the new Yahoo!7 for a better online experience. www=
..yahoo7.com.au
--0-661032591-1216263847=:33423
Content-Type: text/html; charset=utf-8
Content-Transfer-Encoding: quoted-printable



top' style=3D'font: inherit;'> Hi adam,   I got that mod_perl works on my server.   But how to setup Komodo 3.1 to debug mod_perl?   It seems like Komodo can only debug mod_cgi.   My httpd.conf setting:   <Perl>   use lib qw("C:/Program Files/ActiveState Komodo 3= ..1/dbgp/perllib");   $ENV{PERLDB_OPTS} =3D "RemotePort=3D127.0.0.1:= 1417 LogFile=3Dstderr";   use Apache::DB ();   Apache::DB-&= gt;init; </Perl>   Alias /perl/ "C:/Apache2.2/htdocs/perl/" <Location /perl/> &= nbsp; SetHandler perl-script   PerlHandler ModPerl::Registry &nb= sp; Options +ExecCGI   PerlOptions +ParseHeaders   PerlFixu= pHandler Apache::DB   Order allow,deny   Allow from all ></Location> Below is Apache error logs:   Thu Jul 17 12:50:21 2008] [error] Unable to get Terminal Size. The Win32= GetConsoleScreenBufferInfo call didn't work. The COLUMNS and LINES environ= ment variables didn't work. The resize program didn't work. at C:/Perl/lib/= Term/ReadKey.pm line 362.\nCompilation failed in require at C:/Perl/lib/Ter= m/ReadLine/Perl.pm line 64.\n at C:/Perl/lib/Term/ReadLine/Perl.pm line 64\= n\teval {...} called at C:/Perl/lib/Term/ReadLine/Perl.pm line 64\n\tTerm::= ReadLine::Perl::new('Term::ReadLine', 'perldb', 'IO::Socket::INET=3DGLOB(0x= a4f9cbc)', 'IO::Socket::INET=3DGLOB(0xa4f9cbc)') called at C:/Perl/site/lib= /Apache/perl5db.pl line 2226\n\tDB::setterm called at C:/Perl/site/lib/Apac= he/perl5db.pl line 773\n\tDB::DB called at C:/Apache2.2/htdocs/perl/foo2.cg= i line 2\n\tModPerl::ROOT::ModPerl::Registry::C_3a_Apache2_2e2_htdo cs_perl_= foo2_2ecgi::BEGIN() called at C:/Perl/lib/Term/ReadLine/readline.pm line 2\= n\teval {...} called at C:/Perl/lib/Term/ReadLine/readline.pm line 2\n\teval 'package ModPerl::ROOT::ModPerl::Registry::C_3a_Apache2_2e2_htdo= cs_perl_foo2_2ecgi;sub handler {local $0 =3D 2.2/htdocs/perl/foo2.cgi\\';\n#line">\\'C:/Apache2.2/htdocs/ perl/foo2.cgi\\= ';\n#line 1 C:/Apache2.2/htdocs/perl/foo2.cgi\n#!c:/perl/bin/perl.exe\r= \n  use strict;\r\n  print "Content-type: text/html\\\\n\\\\n";\r= \n  print "<HTML><BODY><H3>Environment variables<= /H3><UL>";\r\n  foreach (sort keys %ENV) {\r\n  &nb= sp; my $val =3D $ENV{$_};\r\n    $val =3D~ s|\\\\n|\\\\\\\\n= |g;\r\n    $val =3D~ s|"|\\\\\\\\"|g;\r\n    = print "<LI>$_ =3D \\\\"${val}\\\\"</LI>\\\\n";\r\n = }\r\n  #sleep(10);\r\n  print "</UL></BODY></HTML= >";\n}\n;' called at C:/Perl/site/lib/ModPerl/RegistryCooker.pm line 677= \n\tModPerl::RegistryCooker::compile('ModPerl::Registry=3DHA SH(0x280c1ac)', 'SCALAR(0x1c615f0)') called at C:/Perl/site/lib/ModPerl/RegistryCooker.pm = line 406\n\tModPerl::RegistryCooker::convert_script_to_compiled_h andler('Mo= dPerl::Registry=3DHASH(0x280c1ac)') called at C:/Perl/site/lib/ModPerl/Regi= stryCooker.pm line 163\n\tModPerl::RegistryCooker::default_handler('ModPerl= ::Registry=3DHASH(0x280c1ac)') called at C:/Perl/site/lib/ModPerl/Registry.= pm line 31\n\tModPerl::Registry::handler('ModPerl::Registry', 'Apache2::Req= uestRec=3DSCALAR(0x280c284)') called at C:/Perl/lib/Term/ReadLine/readline.= pm line 2\n\teval {...} called at C:/Perl/lib/Term/ReadLine/readline.pm lin= e 2\n at C:/Perl/lib/Term/ReadLine/Perl.pm line 64\n\tTerm::ReadLine::Perl:= :new('Term::ReadLine', 'perldb', 'IO::Socket::INET=3DGLOB(0xa4f9cbc)', 'IO:= :Socket::INET=3DGLOB(0xa4f9cbc)') called at C:/Perl/site/lib/Apache/perl5db= ..pl line 2226\n\tDB::setterm called at C:/Perl/site/lib/Apache/perl5db.pl l= ine 773\n\tDB::DB called at C:/Apache2.2/htdocs/perl/foo2.cgi line 2\n\tModPerl::ROOT::ModPerl::Registry::C_3a_Apache2_2e2_htdo cs_perl_foo2_2= ecgi::BEGIN() called at C:/Apache2.2/htdocs/perl/foo2.cgi line 2\n\teval {.= ...} called at C:/Apache2.2/htdocs/perl/foo2.cgi line 2\n\teval 'package Mod= Perl::ROOT::ModPerl::Registry::C_3a_Apache2_2e2_htdocs_perl_ foo2_2ecgi;sub = handler {local $0 =3D i\\';\n#line">\\'C:/Apache2.2/htdocs/perl/foo2.cgi\\';\n#lin e 1 C:/Apac= he2.2/htdocs/perl/foo2.cgi\n#!c:/perl/bin/perl.exe\r\n  use strict;\r\= n  print "Content-type: text/html\\\\n\\\\n";\r\n  print "<HTM= L><BODY><H3>Environment variables</H3><UL>";\r\n=   foreach (sort keys %ENV) {\r\n    my $val =3D $ENV{$_= };\r\n    $val =3D~ s|\\\\n|\\\\\\\\n|g;\r\n  &nbs= p; $val =3D~ s|"|\\\\\\\\"|g;\r\n    print "<LI>$_ =3D= \\\\"${val}\\\\"</LI>\\\\n";\r\n  }\r\n  #sleep(10);\r\n  print "</UL></BODY></HTML>";\n}\n;= ' called at C:/Perl/site/lib/ModPerl/RegistryCooker.pm line 677\n\tModPerl:= :RegistryCooker::compile('ModPerl::Registry=3DHASH(0x280c1ac )', 'SCALAR(0x1= c615f0)') called at C:/Perl/site/lib/ModPerl/RegistryCooker.pm line 406\n\t= ModPerl::RegistryCooker::convert_script_to_compiled_handler( 'ModPerl::Regis= try=3DHASH(0x280c1ac)') called at C:/Perl/site/lib/ModPerl/RegistryCooker.p= m line 163\n\tModPerl::RegistryCooker::default_handler('ModPerl::Re gistry= =3DHASH(0x280c1ac)') called at C:/Perl/site/lib/ModPerl/Registry.pm line 31= \n\tModPerl::Registry::handler('ModPerl::Registry', 'Apache2::RequestRec=3D= SCALAR(0x280c284)') called at C:/Apache2.2/htdocs/perl/foo2.cgi line 2\n\te= val {...} called at C:/Apache2.2/htdocs/perl/foo2.cgi line 2\nBEGIN failed-= -compilation aborted at C:/Apache2.2/htdocs/perl/foo2.cgi line 2.\n at C:/A= pache2.2/htdocs/perl/foo2.cgi line 2\n\teval 'package ModPerl::ROOT::ModPerl::Registry::C_3a_Apache2_2e2_htdocs_pe rl_foo2_2ecgi;= sub handler {local $0 =3D 2.cgi\\';\n#line">\\'C:/Apache2.2/htdocs/perl/foo2.cgi\\';\n #line 1 C:/= Apache2.2/htdocs/perl/foo2.cgi\n#!c:/perl/bin/perl.exe\r\n  use strict= ;\r\n  print "Content-type: text/html\\\\n\\\\n";\r\n  print "<= ;HTML><BODY><H3>Environment variables</H3><UL>";= \r\n  foreach (sort keys %ENV) {\r\n    my $val =3D $EN= V{$_};\r\n    $val =3D~ s|\\\\n|\\\\\\\\n|g;\r\n  =   $val =3D~ s|"|\\\\\\\\"|g;\r\n    print "<LI>$_= =3D \\\\"${val}\\\\"</LI>\\\\n";\r\n  }\r\n  #sleep= (10);\r\n  print "</UL></BODY></HTML>";\n}\n;' calle= d at C:/Perl/site/lib/ModPerl/RegistryCooker.pm line 677\n\tModPerl::Regist= ryCooker::compile('ModPerl::Registry=3DHASH(0x280c1ac)', 'SCALAR(0x1c615f0)= ') called at C:/Perl/site/lib/ModPerl/RegistryCooker.pm line 406\n\tModPerl::= RegistryCooker::convert_script_to_compiled_handler('ModPerl: :Registry=3DHAS= H(0x280c1ac)') called at C:/Perl/site/lib/ModPerl/RegistryCooker.pm line 16= 3\n\tModPerl::RegistryCooker::default_handler('ModPerl::Regi stry=3DHASH(0x2= 80c1ac)') called at C:/Perl/site/lib/ModPerl/Registry.pm line 31\n\tModPerl= ::Registry::handler('ModPerl::Registry', 'Apache2::RequestRec=3DSCALAR(0x28= 0c284)') called at C:/Apache2.2/htdocs/perl/foo2.cgi line 2\n\teval {...} <= /P>   I did a lot online search as well, but still cann't find a solution.   >http://osdir.com/ml/ide.komodo.general/2005-07/msg00008.htm l   Regards   Chris Z --- On Thu, 17/7/08, adam.prime@utoronto.ca <adam.prime@uto= ronto.ca> wrote: 16,16,255) 2px solid">From: adam.prime@utoronto.ca <adam.prime@utoronto.= ca> Subject: Re: persistent database connection - Apache::DBI with mo= d_perl To: modperl@perl.apache.org Received: Thursday, 17 July, 2008,= 12:33 AM Quoting Chris Zhuang <chrs_zhuang@yahoo.com.au>= : > Hi, > However, when I run an CGI script on the IE 6, it cannot find =20 > $ENV{MOD_PERL} and start new DBI connection. > --------foo.cgi-------------------- > #!c:/perl/bin/perl.exe -d > use DBI; > use CGI qw(:standard); > > my $dbh =3D DBI->connect("dbi:Oracle:host=3Dxxx;sid=3Dxxx", > "xxx", "xxx", > {PrintError =3D> 1, RaiseError =3D>= 0, =20 > AutoCommit =3D> 1,} > ); > --------END-------------------- > It looks like your CGI's are are running under CGI, not =20 ModPerl::PerlRun, or ModPerl::Registry. see: http://perl.apache.org/docs/2.0/user/intro/start_fast.html#R egistry_Scripts=




---

=0A=
Start at the new Yahoo!7 for a better online experience - /au.rd.yahoo.com/mail/taglines/au/y7mail/default/*http://au. docs.yahoo.com/=
somethingwonderful/index.php?p1=3Dbrand&p2=3Dother&p3=3Dau&p 4=3Dtagline" ta=
rget=3D_blank>Start Here.
--0-661032591-1216263847=:33423--

Re: persistent database connection - Apache::DBI with mod_perl

On Wed, Jul 16, 2008 at 11:04 PM, Chris Zhuang wrote:
> But how to setup Komodo 3.1 to debug mod_perl?

You should probably ask the Komodo support list about that.
Apache::DB seems to be working.

- Perrin